home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
FROMUTS
/
RISCBBS
/
!RiscBBS
/
Menus
/
Msgbase
/
LocScan
< prev
next >
Wrap
Text File
|
1992-02-24
|
1KB
|
62 lines
{
report `Local scan for mail`
defopt F= `Forward` 10 ``
m_read `1 U`
if RET
menu Msgbase.Main
endif
endopt
defopt B= `Backward` 10 ``
m_read `-1 U`
if RET
menu Msgbase.Main
endif
endopt
defopt C= `Current` 10 ``
m_read `0 U`
if RET
menu Msgbase.Main
endif
endopt
defopt S= `Start of area` 10 ``
m_read `1 U RB`
if RET
menu Msgbase.Main
endif
endopt
defopt E= `End of area` 10 ``
m_read `-1 U RE`
if RET
menu Msgbase.Main
endif
endopt
defopt ¤= `Next` 10 ``
m_read `0 U I`
if RET
menu Msgbase.Main
endif
endopt
defopt R= `Reply` 10 ``
m_enter `R`
endopt
defopt K= `Kill` 10 ``
m_kill
endopt
defopt A= `Abort` 10 ``
menu Msgbase.Main
endopt
attr 0 6
}
Local scan: {fg 7}[{fg 1}F{fg 7}]orward [{fg 1}B{fg 7}]ackward [{fg 1}C{fg 7}]urrent [{fg 1}R{fg 7}]eply
{fg 7}[{fg 1}K{fg 7}]ill [{fg 1}S{fg 7}]tart of area [{fg 1}E{fg 7}]nd of area [{fg 1}A{fg 7}]bort : {fg 1 eof}